home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
PROGRAMR
/
JORF21_2.ZIP
/
WHATKEY.J
< prev
next >
Wrap
Text File
|
1993-07-05
|
293b
|
13 lines
WhatKey:Start
| Sample for: Kbd:Get, Event:Add
New (Key)
Win:Add ("What Key?", 5, 15, 10, 50)
Win:Msg ("Press ESC to Quit")
While (Kbd:Got!="Esc_Key")
Str:Put ("Press a Key: ")
Key = Kbd:Get ("Big")
Str:PutLine ('That was the "' + Key + '".')
Return (Ok)